home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / M2TSkel.cpt / M2TSkel / DialogSkel.mod < prev    next >
MacBinary  |  1987-05-16  |  7.8 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: DialogSkel.mod

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert SoundTracker Module (music/soundTracker) ext Supported
65% dexvert Chip Tracker Module (music/chipTracker) ext Supported
64% dexvert Protracker Module (music/mod) ext Supported
63% dexvert Octalyser Module (music/octalyser) ext Supported
61% dexvert Star Tracker/StarTrekker Module (music/starTracker) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert PollyTracker Module (music/pollyTracker) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sat May 16 09:40:56 1987, modified Sat May 16 09:40:56 1987, creator 'MPS ', type ASCII, 7382 bytes "DialogSkel.mod" , at 0x1d56 382 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 44 69 61 6c 6f 67 | 53 6b 65 6c 2e 6d 6f 64 |..Dialog|Skel.mod|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 1c d6 00 | 00 01 7e 9c d2 1c e8 9c |........|..~.....|
|00000060| d2 1c e8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e5 b1 00 00 |........|........|
|00000080| 4d 4f 44 55 4c 45 20 44 | 69 61 6c 6f 67 53 6b 65 |MODULE D|ialogSke|
|00000090| 6c 3b 0d 0d 46 52 4f 4d | 20 53 59 53 54 45 4d 20 |l;..FROM| SYSTEM |
|000000a0| 49 4d 50 4f 52 54 20 41 | 44 52 2c 20 41 44 44 52 |IMPORT A|DR, ADDR|
|000000b0| 45 53 53 2c 20 53 41 56 | 45 52 45 47 53 3b 0d 46 |ESS, SAV|EREGS;.F|
|000000c0| 52 4f 4d 20 4d 61 63 54 | 79 70 65 73 20 49 4d 50 |ROM MacT|ypes IMP|
|000000d0| 4f 52 54 20 4f 53 45 72 | 72 2c 20 53 74 72 32 35 |ORT OSEr|r, Str25|
|000000e0| 35 2c 20 53 69 67 6e 65 | 64 42 79 74 65 3b 0d 46 |5, Signe|dByte;.F|
|000000f0| 52 4f 4d 20 51 75 69 63 | 6b 44 72 61 77 20 49 4d |ROM Quic|kDraw IM|
|00000100| 50 4f 52 54 20 52 65 63 | 74 2c 20 47 65 74 50 6f |PORT Rec|t, GetPo|
|00000110| 72 74 2c 20 53 65 74 50 | 6f 72 74 3b 0d 46 52 4f |rt, SetP|ort;.FRO|
|00000120| 4d 20 44 69 61 6c 6f 67 | 4d 61 6e 61 67 65 72 20 |M Dialog|Manager |
|00000130| 49 4d 50 4f 52 54 20 44 | 69 61 6c 6f 67 50 74 72 |IMPORT D|ialogPtr|
|00000140| 2c 20 47 65 74 44 49 74 | 65 6d 2c 20 53 65 74 49 |, GetDIt|em, SetI|
|00000150| 54 65 78 74 2c 20 47 65 | 74 49 54 65 78 74 2c 20 |Text, Ge|tIText, |
|00000160| 53 65 74 44 49 74 65 6d | 2c 0d 09 09 09 09 09 09 |SetDItem|,.......|
|00000170| 09 09 09 09 09 09 09 44 | 69 73 70 6f 73 44 69 61 |.......D|isposDia|
|00000180| 6c 6f 67 2c 20 44 6c 67 | 43 6f 70 79 2c 20 44 6c |log, Dlg|Copy, Dl|
|00000190| 67 43 75 74 2c 20 44 6c | 67 50 61 73 74 65 2c 20 |gCut, Dl|gPaste, |
|000001a0| 44 6c 67 44 65 6c 65 74 | 65 2c 0d 09 09 09 09 09 |DlgDelet|e,......|
|000001b0| 09 09 09 09 09 09 09 09 | 41 6c 65 72 74 2c 20 47 |........|Alert, G|
|000001c0| 65 74 4e 65 77 44 69 61 | 6c 6f 67 3b 0d 46 52 4f |etNewDia|log;.FRO|
|000001d0| 4d 20 57 69 6e 64 6f 77 | 4d 61 6e 61 67 65 72 20 |M Window|Manager |
|000001e0| 49 4d 50 4f 52 54 20 47 | 65 74 57 52 65 66 43 6f |IMPORT G|etWRefCo|
|000001f0| 6e 2c 20 57 69 6e 64 6f | 77 50 65 65 6b 2c 20 53 |n, Windo|wPeek, S|
|00000200| 65 74 57 54 69 74 6c 65 | 2c 20 48 69 64 65 57 69 |etWTitle|, HideWi|
|00000210| 6e 64 6f 77 2c 0d 09 09 | 09 09 09 09 09 09 09 09 |ndow,...|........|
|00000220| 09 09 09 53 68 6f 77 57 | 69 6e 64 6f 77 2c 20 53 |...ShowW|indow, S|
|00000230| 65 6c 65 63 74 57 69 6e | 64 6f 77 2c 20 4d 6f 76 |electWin|dow, Mov|
|00000240| 65 57 69 6e 64 6f 77 2c | 20 53 65 74 57 52 65 66 |eWindow,| SetWRef|
|00000250| 43 6f 6e 2c 0d 09 09 09 | 09 09 09 09 09 09 09 09 |Con,....|........|
|00000260| 09 09 49 6e 76 61 6c 52 | 65 63 74 2c 20 64 69 61 |..InvalR|ect, dia|
|00000270| 6c 6f 67 4b 69 6e 64 2c | 20 57 69 6e 64 6f 77 50 |logKind,| WindowP|
|00000280| 74 72 2c 20 46 72 6f 6e | 74 57 69 6e 64 6f 77 3b |tr, Fron|tWindow;|
|00000290| 0d 46 52 4f 4d 20 43 6f | 6e 74 72 6f 6c 4d 61 6e |.FROM Co|ntrolMan|
|000002a0| 61 67 65 72 20 49 4d 50 | 4f 52 54 20 47 65 74 43 |ager IMP|ORT GetC|
|000002b0| 74 6c 56 61 6c 75 65 2c | 20 53 65 74 43 74 6c 56 |tlValue,| SetCtlV|
|000002c0| 61 6c 75 65 3b 0d 46 52 | 4f 4d 20 54 65 78 74 45 |alue;.FR|OM TextE|
|000002d0| 64 69 74 20 49 4d 50 4f | 52 54 20 54 45 54 6f 53 |dit IMPO|RT TEToS|
|000002e0| 63 72 61 70 2c 20 54 45 | 46 72 6f 6d 53 63 72 61 |crap, TE|FromScra|
|000002f0| 70 3b 0d 46 52 4f 4d 20 | 53 63 72 61 70 4d 61 6e |p;.FROM |ScrapMan|
|00000300| 61 67 65 72 20 49 4d 50 | 4f 52 54 20 5a 65 72 6f |ager IMP|ORT Zero|
|00000310| 53 63 72 61 70 3b 0d 46 | 52 4f 4d 20 45 76 65 6e |Scrap;.F|ROM Even|
|00000320| 74 4d 61 6e 61 67 65 72 | 20 49 4d 50 4f 52 54 20 |tManager| IMPORT |
|00000330| 45 76 65 6e 74 52 65 63 | 6f 72 64 3b 0d 46 52 4f |EventRec|ord;.FRO|
|00000340| 4d 20 4d 65 6e 75 4d 61 | 6e 61 67 65 72 20 49 4d |M MenuMa|nager IM|
|00000350| 50 4f 52 54 20 4d 65 6e | 75 48 61 6e 64 6c 65 2c |PORT Men|uHandle,|
|00000360| 20 4e 65 77 4d 65 6e 75 | 2c 20 41 70 70 65 6e 64 | NewMenu|, Append|
|00000370| 4d 65 6e 75 3b 0d 46 52 | 4f 4d 20 55 74 69 6c 69 |Menu;.FR|OM Utili|
|00000380| 74 69 65 73 20 49 4d 50 | 4f 52 54 20 47 65 74 49 |ties IMP|ORT GetI|
|00000390| 63 6f 6e 2c 20 50 6c 6f | 74 49 63 6f 6e 3b 0d 46 |con, Plo|tIcon;.F|
|000003a0| 52 4f 4d 20 54 72 61 6e | 73 53 6b 65 6c 20 49 4d |ROM Tran|sSkel IM|
|000003b0| 50 4f 52 54 20 53 6b 65 | 6c 49 6e 69 74 2c 20 53 |PORT Ske|lInit, S|
|000003c0| 6b 65 6c 41 70 70 6c 65 | 2c 20 53 6b 65 6c 4d 61 |kelApple|, SkelMa|
|000003d0| 69 6e 2c 20 53 6b 65 6c | 43 6c 6f 62 62 65 72 2c |in, Skel|Clobber,|
|000003e0| 20 53 6b 65 6c 44 69 61 | 6c 6f 67 2c 0d 09 09 09 | SkelDia|log,....|
|000003f0| 09 09 09 09 09 09 09 09 | 53 6b 65 6c 57 68 6f 61 |........|SkelWhoa|
|00000400| 2c 20 53 6b 65 6c 4d 65 | 6e 75 2c 20 4d 43 6c 6f |, SkelMe|nu, MClo|
|00000410| 62 62 65 72 50 72 6f 63 | 3b 0d 0d 43 4f 4e 53 54 |bberProc|;..CONST|
|00000420| 0d 09 6d 44 6c 6f 67 52 | 65 73 20 3d 20 31 30 30 |..mDlogR|es = 100|
|00000430| 30 3b 0d 09 61 62 6f 75 | 74 41 6c 72 74 52 65 73 |0;..abou|tAlrtRes|
|00000440| 20 3d 20 31 30 30 31 3b | 0d 09 0d 09 28 2a 20 46 | = 1001;|....(* F|
|00000450| 69 6c 65 20 6d 65 6e 75 | 20 69 74 65 6d 20 6e 75 |ile menu| item nu|
|00000460| 6d 62 65 72 73 20 2a 29 | 0d 09 73 68 6f 77 44 6c |mbers *)|..showDl|
|00000470| 6f 67 31 20 3d 20 31 3b | 0d 09 73 68 6f 77 44 6c |og1 = 1;|..showDl|
|00000480| 6f 67 32 20 3d 20 32 3b | 0d 09 71 75 69 74 20 3d |og2 = 2;|..quit =|
|00000490| 20 34 3b 0d 09 0d 09 28 | 2a 20 45 64 69 74 20 6d | 4;....(|* Edit m|
|000004a0| 65 6e 75 20 69 74 65 6d | 20 6e 75 6d 62 65 72 73 |enu item| numbers|
|000004b0| 20 2a 29 0d 09 75 6e 64 | 6f 20 3d 20 31 3b 0d 09 | *)..und|o = 1;..|
|000004c0| 63 75 74 20 3d 20 33 3b | 0d 09 63 6f 70 79 20 3d |cut = 3;|..copy =|
|000004d0| 20 34 3b 0d 09 70 61 73 | 74 65 20 3d 20 35 3b 0d | 4;..pas|te = 5;.|
|000004e0| 09 63 6c 65 61 72 20 3d | 20 36 3b 0d 09 0d 09 28 |.clear =| 6;....(|
|000004f0| 2a 20 44 69 61 6c 6f 67 | 20 69 74 65 6d 20 6e 75 |* Dialog| item nu|
|00000500| 6d 62 65 72 73 20 2a 29 | 0d 09 62 75 74 74 6f 6e |mbers *)|..button|
|00000510| 31 20 3d 20 31 3b 0d 09 | 65 64 69 74 31 20 3d 20 |1 = 1;..|edit1 = |
|00000520| 32 3b 0d 09 73 74 61 74 | 69 63 31 20 3d 20 33 3b |2;..stat|ic1 = 3;|
|00000530| 0d 09 72 61 64 69 6f 31 | 20 3d 20 34 3b 0d 09 72 |..radio1| = 4;..r|
|00000540| 61 64 69 6f 32 20 3d 20 | 35 3b 0d 09 72 61 64 69 |adio2 = |5;..radi|
|00000550| 6f 33 20 3d 20 36 3b 0d | 09 63 68 65 63 6b 31 20 |o3 = 6;.|.check1 |
|00000560| 3d 20 37 3b 0d 09 63 68 | 65 63 6b 32 20 3d 20 38 |= 7;..ch|eck2 = 8|
|00000570| 3b 0d 09 75 73 65 72 31 | 20 3d 20 39 3b 0d 0d 54 |;..user1| = 9;..T|
|00000580| 59 50 45 0d 09 41 63 74 | 69 6f 6e 50 72 6f 63 20 |YPE..Act|ionProc |
|00000590| 3d 20 50 52 4f 43 45 44 | 55 52 45 28 44 69 61 6c |= PROCED|URE(Dial|
|000005a0| 6f 67 50 74 72 2c 20 49 | 4e 54 45 47 45 52 29 3b |ogPtr, I|NTEGER);|
|000005b0| 0d 0d 56 41 52 0d 09 6d | 44 6c 6f 67 31 3a 20 44 |..VAR..m|Dlog1: D|
|000005c0| 69 61 6c 6f 67 50 74 72 | 3b 0d 09 6d 44 6c 6f 67 |ialogPtr|;..mDlog|
|000005d0| 32 3a 20 44 69 61 6c 6f | 67 50 74 72 3b 0d 09 69 |2: Dialo|gPtr;..i|
|000005e0| 63 6f 6e 4e 75 6d 31 2c | 0d 09 69 63 6f 6e 4e 75 |conNum1,|..iconNu|
|000005f0| 6d 32 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 0d 50 |m2: INTE|GER;...P|
|00000600| 52 4f 43 45 44 55 52 45 | 20 44 72 61 77 49 63 6f |ROCEDURE| DrawIco|
|00000610| 6e 28 64 6c 6f 67 3a 20 | 44 69 61 6c 6f 67 50 74 |n(dlog: |DialogPt|
|00000620| 72 3b 20 69 74 65 6d 3a | 20 49 4e 54 45 47 45 52 |r; item:| INTEGER|
|00000630| 29 3b 0d 0d 09 56 41 52 | 0d 09 09 68 3a 20 41 44 |);...VAR|...h: AD|
|00000640| 44 52 45 53 53 3b 0d 09 | 09 69 74 65 6d 48 61 6e |DRESS;..|.itemHan|
|00000650| 64 6c 65 3a 20 41 44 44 | 52 45 53 53 3b 0d 09 09 |dle: ADD|RESS;...|
|00000660| 69 74 65 6d 54 79 70 65 | 3a 20 49 4e 54 45 47 45 |itemType|: INTEGE|
|00000670| 52 3b 0d 09 09 69 74 65 | 6d 52 65 63 74 3a 20 52 |R;...ite|mRect: R|
|00000680| 65 63 74 3b 0d 0d 42 45 | 47 49 4e 0d 09 53 41 56 |ect;..BE|GIN..SAV|
|00000690| 45 52 45 47 53 3b 0d 09 | 47 65 74 44 49 74 65 6d |EREGS;..|GetDItem|
|000006a0| 28 64 6c 6f 67 2c 20 69 | 74 65 6d 2c 20 69 74 65 |(dlog, i|tem, ite|
|000006b0| 6d 54 79 70 65 2c 20 69 | 74 65 6d 48 61 6e 64 6c |mType, i|temHandl|
|000006c0| 65 2c 20 69 74 65 6d 52 | 65 63 74 29 3b 0d 09 49 |e, itemR|ect);..I|
|000006d0| 46 20 64 6c 6f 67 3d 6d | 44 6c 6f 67 31 20 54 48 |F dlog=m|Dlog1 TH|
|000006e0| 45 4e 20 68 20 3a 3d 20 | 47 65 74 49 63 6f 6e 28 |EN h := |GetIcon(|
|000006f0| 69 63 6f 6e 4e 75 6d 31 | 29 3b 0d 09 45 4c 53 45 |iconNum1|);..ELSE|
|00000700| 20 68 20 3a 3d 20 47 65 | 74 49 63 6f 6e 28 69 63 | h := Ge|tIcon(ic|
|00000710| 6f 6e 4e 75 6d 32 29 3b | 0d 09 45 4e 44 3b 0d 09 |onNum2);|..END;..|
|00000720| 50 6c 6f 74 49 63 6f 6e | 28 69 74 65 6d 52 65 63 |PlotIcon|(itemRec|
|00000730| 74 2c 20 68 29 3b 0d 45 | 4e 44 20 44 72 61 77 49 |t, h);.E|ND DrawI|
|00000740| 63 6f 6e 3b 0d 0d 0d 50 | 52 4f 43 45 44 55 52 45 |con;...P|ROCEDURE|
|00000750| 20 47 65 74 44 43 74 6c | 28 64 6c 6f 67 3a 20 44 | GetDCtl|(dlog: D|
|00000760| 69 61 6c 6f 67 50 74 72 | 3b 20 69 74 65 6d 3a 20 |ialogPtr|; item: |
|00000770| 49 4e 54 45 47 45 52 29 | 3a 20 42 4f 4f 4c 45 41 |INTEGER)|: BOOLEA|
|00000780| 4e 3b 0d 0d 09 56 41 52 | 0d 09 09 69 74 65 6d 48 |N;...VAR|...itemH|
|00000790| 61 6e 64 6c 65 3a 20 41 | 44 44 52 45 53 53 3b 0d |andle: A|DDRESS;.|
|000007a0| 09 09 69 74 65 6d 54 79 | 70 65 3a 20 49 4e 54 45 |..itemTy|pe: INTE|
|000007b0| 47 45 52 3b 0d 09 09 69 | 74 65 6d 52 65 63 74 3a |GER;...i|temRect:|
|000007c0| 20 52 65 63 74 3b 0d 0d | 42 45 47 49 4e 0d 09 47 | Rect;..|BEGIN..G|
|000007d0| 65 74 44 49 74 65 6d 28 | 64 6c 6f 67 2c 20 69 74 |etDItem(|dlog, it|
|000007e0| 65 6d 2c 20 69 74 65 6d | 54 79 70 65 2c 20 69 74 |em, item|Type, it|
|000007f0| 65 6d 48 61 6e 64 6c 65 | 2c 20 69 74 65 6d 52 65 |emHandle|, itemRe|
|00000800| 63 74 29 3b 0d 09 52 45 | 54 55 52 4e 20 28 47 65 |ct);..RE|TURN (Ge|
|00000810| 74 43 74 6c 56 61 6c 75 | 65 28 69 74 65 6d 48 61 |tCtlValu|e(itemHa|
|00000820| 6e 64 6c 65 29 23 30 29 | 3b 0d 45 4e 44 20 47 65 |ndle)#0)|;.END Ge|
|00000830| 74 44 43 74 6c 3b 0d 0d | 0d 28 2a 0d 09 54 68 65 |tDCtl;..|.(*..The|
|00000840| 20 62 65 6c 6f 77 20 69 | 73 20 73 6f 6d 65 77 68 | below i|s somewh|
|00000850| 61 74 20 6b 6c 75 64 67 | 79 2c 20 74 68 65 20 70 |at kludg|y, the p|
|00000860| 61 73 73 69 6e 67 20 61 | 6e 64 20 63 6f 65 72 63 |assing a|nd coerc|
|00000870| 69 6e 67 20 6f 66 20 61 | 20 62 6f 6f 6c 65 61 6e |ing of a| boolean|
|00000880| 0d 09 66 6f 72 20 74 68 | 65 20 63 6f 6e 74 72 6f |..for th|e contro|
|00000890| 6c 20 76 61 6c 75 65 3b | 20 68 6f 77 65 76 65 72 |l value;| however|
|000008a0| 2c 20 61 6c 6c 20 74 68 | 65 20 63 6f 6e 74 72 6f |, all th|e contro|
|000008b0| 6c 73 20 69 6e 20 74 68 | 69 73 20 65 78 61 6d 70 |ls in th|is examp|
|000008c0| 6c 65 20 61 72 65 0d 09 | 65 69 74 68 65 72 20 63 |le are..|either c|
|000008d0| 68 65 63 6b 42 6f 78 65 | 73 20 6f 72 20 72 61 64 |heckBoxe|s or rad|
|000008e0| 69 6f 42 75 74 74 6f 6e | 73 20 61 6e 64 20 49 20 |ioButton|s and I |
|000008f0| 77 61 6e 74 20 74 68 65 | 20 74 72 61 6e 73 6c 61 |want the| transla|
|00000900| 74 69 6f 6e 20 74 6f 20 | 62 65 0d 09 74 72 75 65 |tion to |be..true|
|00000910| 20 74 6f 20 74 68 65 20 | 6f 72 69 67 69 6e 61 6c | to the |original|
|00000920| 20 43 20 76 65 72 73 69 | 6f 6e 20 62 79 20 44 75 | C versi|on by Du|
|00000930| 42 6f 69 73 2e 0d 2a 29 | 0d 0d 50 52 4f 43 45 44 |Bois..*)|..PROCED|
|00000940| 55 52 45 20 53 65 74 44 | 43 74 6c 28 64 6c 6f 67 |URE SetD|Ctl(dlog|
|00000950| 3a 20 44 69 61 6c 6f 67 | 50 74 72 3b 20 69 74 65 |: Dialog|Ptr; ite|
|00000960| 6d 3a 20 49 4e 54 45 47 | 45 52 3b 20 76 61 6c 75 |m: INTEG|ER; valu|
|00000970| 65 3a 20 42 4f 4f 4c 45 | 41 4e 29 3b 0d 0d 09 56 |e: BOOLE|AN);...V|
|00000980| 41 52 0d 09 09 69 74 65 | 6d 48 61 6e 64 6c 65 3a |AR...ite|mHandle:|
|00000990| 20 41 44 44 52 45 53 53 | 3b 0d 09 09 69 74 65 6d | ADDRESS|;...item|
|000009a0| 54 79 70 65 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |Type: IN|TEGER;..|
|000009b0| 09 69 74 65 6d 52 65 63 | 74 3a 20 52 65 63 74 3b |.itemRec|t: Rect;|
|000009c0| 0d 0d 42 45 47 49 4e 0d | 09 47 65 74 44 49 74 65 |..BEGIN.|.GetDIte|
|000009d0| 6d 28 64 6c 6f 67 2c 20 | 69 74 65 6d 2c 20 69 74 |m(dlog, |item, it|
|000009e0| 65 6d 54 79 70 65 2c 20 | 69 74 65 6d 48 61 6e 64 |emType, |itemHand|
|000009f0| 6c 65 2c 20 69 74 65 6d | 52 65 63 74 29 3b 0d 09 |le, item|Rect);..|
|00000a00| 53 65 74 43 74 6c 56 61 | 6c 75 65 28 69 74 65 6d |SetCtlVa|lue(item|
|00000a10| 48 61 6e 64 6c 65 2c 20 | 4f 52 44 28 76 61 6c 75 |Handle, |ORD(valu|
|00000a20| 65 29 29 3b 0d 45 4e 44 | 20 53 65 74 44 43 74 6c |e));.END| SetDCtl|
|00000a30| 3b 0d 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 47 65 |;...PROC|EDURE Ge|
|00000a40| 74 44 54 65 78 74 28 64 | 6c 6f 67 3a 20 44 69 61 |tDText(d|log: Dia|
|00000a50| 6c 6f 67 50 74 72 3b 20 | 69 74 65 6d 3a 20 49 4e |logPtr; |item: IN|
|00000a60| 54 45 47 45 52 3b 20 56 | 41 52 20 73 74 72 3a 20 |TEGER; V|AR str: |
|00000a70| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 29 3b 0d |ARRAY OF| CHAR);.|
|00000a80| 0d 09 56 41 52 0d 09 09 | 69 74 65 6d 48 61 6e 64 |..VAR...|itemHand|
|00000a90| 6c 65 3a 20 41 44 44 52 | 45 53 53 3b 0d 09 09 69 |le: ADDR|ESS;...i|
|00000aa0| 74 65 6d 54 79 70 65 3a | 20 49 4e 54 45 47 45 52 |temType:| INTEGER|
|00000ab0| 3b 0d 09 09 69 74 65 6d | 52 65 63 74 3a 20 52 65 |;...item|Rect: Re|
|00000ac0| 63 74 3b 0d 0d 42 45 47 | 49 4e 0d 09 47 65 74 44 |ct;..BEG|IN..GetD|
|00000ad0| 49 74 65 6d 28 64 6c 6f | 67 2c 20 69 74 65 6d 2c |Item(dlo|g, item,|
|00000ae0| 20 69 74 65 6d 54 79 70 | 65 2c 20 69 74 65 6d 48 | itemTyp|e, itemH|
|00000af0| 61 6e 64 6c 65 2c 20 69 | 74 65 6d 52 65 63 74 29 |andle, i|temRect)|
|00000b00| 3b 0d 09 47 65 74 49 54 | 65 78 74 28 69 74 65 6d |;..GetIT|ext(item|
|00000b10| 48 61 6e 64 6c 65 2c 20 | 73 74 72 29 3b 0d 45 4e |Handle, |str);.EN|
|00000b20| 44 20 47 65 74 44 54 65 | 78 74 3b 0d 0d 0d 50 52 |D GetDTe|xt;...PR|
|00000b30| 4f 43 45 44 55 52 45 20 | 53 65 74 44 54 65 78 74 |OCEDURE |SetDText|
|00000b40| 28 64 6c 6f 67 3a 20 44 | 69 61 6c 6f 67 50 74 72 |(dlog: D|ialogPtr|
|00000b50| 3b 20 69 74 65 6d 3a 20 | 49 4e 54 45 47 45 52 3b |; item: |INTEGER;|
|00000b60| 20 73 74 72 3a 20 41 52 | 52 41 59 20 4f 46 20 43 | str: AR|RAY OF C|
|00000b70| 48 41 52 29 3b 0d 0d 09 | 56 41 52 0d 09 09 69 74 |HAR);...|VAR...it|
|00000b80| 65 6d 48 61 6e 64 6c 65 | 3a 20 41 44 44 52 45 53 |emHandle|: ADDRES|
|00000b90| 53 3b 0d 09 09 69 74 65 | 6d 54 79 70 65 3a 20 49 |S;...ite|mType: I|
|00000ba0| 4e 54 45 47 45 52 3b 0d | 09 09 69 74 65 6d 52 65 |NTEGER;.|..itemRe|
|00000bb0| 63 74 3a 20 52 65 63 74 | 3b 0d 0d 42 45 47 49 4e |ct: Rect|;..BEGIN|
|00000bc0| 0d 09 47 65 74 44 49 74 | 65 6d 28 64 6c 6f 67 2c |..GetDIt|em(dlog,|
|00000bd0| 20 69 74 65 6d 2c 20 69 | 74 65 6d 54 79 70 65 2c | item, i|temType,|
|00000be0| 20 69 74 65 6d 48 61 6e | 64 6c 65 2c 20 69 74 65 | itemHan|dle, ite|
|00000bf0| 6d 52 65 63 74 29 3b 0d | 09 53 65 74 49 54 65 78 |mRect);.|.SetITex|
|00000c00| 74 28 69 74 65 6d 48 61 | 6e 64 6c 65 2c 20 73 74 |t(itemHa|ndle, st|
|00000c10| 72 29 3b 0d 45 4e 44 20 | 53 65 74 44 54 65 78 74 |r);.END |SetDText|
|00000c20| 3b 0d 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 53 65 |;...PROC|EDURE Se|
|00000c30| 74 44 52 61 64 69 6f 28 | 64 6c 6f 67 3a 20 44 69 |tDRadio(|dlog: Di|
|00000c40| 61 6c 6f 67 50 74 72 3b | 20 69 74 65 6d 3a 20 49 |alogPtr;| item: I|
|00000c50| 4e 54 45 47 45 52 29 3b | 0d 0d 09 56 41 52 0d 09 |NTEGER);|...VAR..|
|00000c60| 09 70 61 72 74 6e 65 72 | 3a 20 44 69 61 6c 6f 67 |.partner|: Dialog|
|00000c70| 50 74 72 3b 0d 09 09 69 | 74 65 6d 48 61 6e 64 6c |Ptr;...i|temHandl|
|00000c80| 65 3a 20 41 44 44 52 45 | 53 53 3b 0d 09 09 69 74 |e: ADDRE|SS;...it|
|00000c90| 65 6d 54 79 70 65 3a 20 | 49 4e 54 45 47 45 52 3b |emType: |INTEGER;|
|00000ca0| 0d 09 09 69 74 65 6d 52 | 65 63 74 3a 20 52 65 63 |...itemR|ect: Rec|
|00000cb0| 74 3b 0d 0d 42 45 47 49 | 4e 0d 09 70 61 72 74 6e |t;..BEGI|N..partn|
|00000cc0| 65 72 20 3a 3d 20 56 41 | 4c 28 44 69 61 6c 6f 67 |er := VA|L(Dialog|
|00000cd0| 50 74 72 2c 20 47 65 74 | 57 52 65 66 43 6f 6e 28 |Ptr, Get|WRefCon(|
|00000ce0| 64 6c 6f 67 29 29 3b 0d | 09 53 65 74 44 43 74 6c |dlog));.|.SetDCtl|
|00000cf0| 28 64 6c 6f 67 2c 20 72 | 61 64 69 6f 31 2c 20 69 |(dlog, r|adio1, i|
|00000d00| 74 65 6d 3d 72 61 64 69 | 6f 31 29 3b 0d 09 53 65 |tem=radi|o1);..Se|
|00000d10| 74 44 43 74 6c 28 64 6c | 6f 67 2c 20 72 61 64 69 |tDCtl(dl|og, radi|
|00000d20| 6f 32 2c 20 69 74 65 6d | 3d 72 61 64 69 6f 32 29 |o2, item|=radio2)|
|00000d30| 3b 0d 09 53 65 74 44 43 | 74 6c 28 64 6c 6f 67 2c |;..SetDC|tl(dlog,|
|00000d40| 20 72 61 64 69 6f 33 2c | 20 69 74 65 6d 3d 72 61 | radio3,| item=ra|
|00000d50| 64 69 6f 33 29 3b 0d 09 | 0d 09 49 46 20 70 61 72 |dio3);..|..IF par|
|00000d60| 74 6e 65 72 20 3d 20 6d | 44 6c 6f 67 31 20 54 48 |tner = m|Dlog1 TH|
|00000d70| 45 4e 20 69 63 6f 6e 4e | 75 6d 31 20 3a 3d 20 69 |EN iconN|um1 := i|
|00000d80| 74 65 6d 2d 72 61 64 69 | 6f 31 3b 0d 09 45 4c 53 |tem-radi|o1;..ELS|
|00000d90| 45 20 69 63 6f 6e 4e 75 | 6d 32 20 3a 3d 20 69 74 |E iconNu|m2 := it|
|00000da0| 65 6d 2d 72 61 64 69 6f | 31 3b 0d 09 45 4e 44 3b |em-radio|1;..END;|
|00000db0| 0d 09 0d 09 47 65 74 44 | 49 74 65 6d 28 70 61 72 |....GetD|Item(par|
|00000dc0| 74 6e 65 72 2c 20 75 73 | 65 72 31 2c 20 69 74 65 |tner, us|er1, ite|
|00000dd0| 6d 54 79 70 65 2c 20 69 | 74 65 6d 48 61 6e 64 6c |mType, i|temHandl|
|00000de0| 65 2c 20 69 74 65 6d 52 | 65 63 74 29 3b 0d 09 53 |e, itemR|ect);..S|
|00000df0| 65 74 50 6f 72 74 28 70 | 61 72 74 6e 65 72 29 3b |etPort(p|artner);|
|00000e00| 0d 09 49 6e 76 61 6c 52 | 65 63 74 28 69 74 65 6d |..InvalR|ect(item|
|00000e10| 52 65 63 74 29 3b 0d 45 | 4e 44 20 53 65 74 44 52 |Rect);.E|ND SetDR|
|00000e20| 61 64 69 6f 3b 0d 0d 0d | 50 52 4f 43 45 44 55 52 |adio;...|PROCEDUR|
|00000e30| 45 20 45 76 65 6e 74 28 | 69 74 65 6d 3a 20 49 4e |E Event(|item: IN|
|00000e40| 54 45 47 45 52 3b 20 56 | 41 52 20 65 76 65 6e 74 |TEGER; V|AR event|
|00000e50| 3a 20 45 76 65 6e 74 52 | 65 63 6f 72 64 29 3a 20 |: EventR|ecord): |
|00000e60| 42 4f 4f 4c 45 41 4e 3b | 0d 0d 09 56 41 52 0d 09 |BOOLEAN;|...VAR..|
|00000e70| 09 61 63 74 6f 72 2c 0d | 09 09 70 61 72 74 6e 65 |.actor,.|..partne|
|00000e80| 72 3a 20 44 69 61 6c 6f | 67 50 74 72 3b 0d 09 09 |r: Dialo|gPtr;...|
|00000e90| 74 69 74 6c 65 3a 20 53 | 74 72 32 35 35 3b 0d 09 |title: S|tr255;..|
|00000ea0| 09 76 61 6c 75 65 3a 20 | 42 4f 4f 4c 45 41 4e 3b |.value: |BOOLEAN;|
|00000eb0| 0d 09 09 70 65 65 6b 3a | 20 57 69 6e 64 6f 77 50 |...peek:| WindowP|
|00000ec0| 65 65 6b 3b 0d 0d 42 45 | 47 49 4e 0d 09 47 65 74 |eek;..BE|GIN..Get|
|00000ed0| 50 6f 72 74 28 61 63 74 | 6f 72 29 3b 0d 09 70 61 |Port(act|or);..pa|
|00000ee0| 72 74 6e 65 72 20 3a 3d | 20 56 41 4c 28 44 69 61 |rtner :=| VAL(Dia|
|00000ef0| 6c 6f 67 50 74 72 2c 20 | 47 65 74 57 52 65 66 43 |logPtr, |GetWRefC|
|00000f00| 6f 6e 28 61 63 74 6f 72 | 29 29 3b 0d 09 43 41 53 |on(actor|));..CAS|
|00000f10| 45 20 69 74 65 6d 20 4f | 46 0d 09 09 62 75 74 74 |E item O|F...butt|
|00000f20| 6f 6e 31 3a 0d 09 09 09 | 47 65 74 44 54 65 78 74 |on1:....|GetDText|
|00000f30| 28 61 63 74 6f 72 2c 20 | 65 64 69 74 31 2c 20 74 |(actor, |edit1, t|
|00000f40| 69 74 6c 65 29 3b 0d 09 | 09 09 53 65 74 57 54 69 |itle);..|..SetWTi|
|00000f50| 74 6c 65 28 70 61 72 74 | 6e 65 72 2c 20 74 69 74 |tle(part|ner, tit|
|00000f60| 6c 65 29 3b 0d 09 09 7c | 0d 09 09 28 2a 20 47 72 |le);...||...(* Gr|
|00000f70| 6f 75 70 20 6f 66 20 72 | 61 64 69 6f 42 75 74 74 |oup of r|adioButt|
|00000f80| 6f 6e 73 20 2a 29 0d 09 | 09 72 61 64 69 6f 31 3a |ons *)..|.radio1:|
|00000f90| 20 53 65 74 44 52 61 64 | 69 6f 28 61 63 74 6f 72 | SetDRad|io(actor|
|00000fa0| 2c 20 72 61 64 69 6f 31 | 29 3b 0d 09 09 7c 0d 09 |, radio1|);...|..|
|00000fb0| 09 72 61 64 69 6f 32 3a | 20 53 65 74 44 52 61 64 |.radio2:| SetDRad|
|00000fc0| 69 6f 28 61 63 74 6f 72 | 2c 20 72 61 64 69 6f 32 |io(actor|, radio2|
|00000fd0| 29 3b 0d 09 09 7c 0d 09 | 09 72 61 64 69 6f 33 3a |);...|..|.radio3:|
|00000fe0| 20 53 65 74 44 52 61 64 | 69 6f 28 61 63 74 6f 72 | SetDRad|io(actor|
|00000ff0| 2c 20 72 61 64 69 6f 33 | 29 3b 0d 09 09 7c 0d 09 |, radio3|);...|..|
|00001000| 09 28 2a 20 46 6c 69 70 | 20 63 68 65 63 6b 20 62 |.(* Flip| check b|
|00001010| 6f 78 65 73 20 2a 29 0d | 09 09 63 68 65 63 6b 31 |oxes *).|..check1|
|00001020| 3a 0d 09 09 09 76 61 6c | 75 65 20 3a 3d 20 4e 4f |:....val|ue := NO|
|00001030| 54 20 47 65 74 44 43 74 | 6c 28 61 63 74 6f 72 2c |T GetDCt|l(actor,|
|00001040| 20 69 74 65 6d 29 3b 0d | 09 09 09 53 65 74 44 43 | item);.|...SetDC|
|00001050| 74 6c 28 61 63 74 6f 72 | 2c 20 69 74 65 6d 2c 20 |tl(actor|, item, |
|00001060| 76 61 6c 75 65 29 3b 0d | 09 09 09 49 46 20 76 61 |value);.|...IF va|
|00001070| 6c 75 65 20 54 48 45 4e | 20 53 68 6f 77 57 69 6e |lue THEN| ShowWin|
|00001080| 64 6f 77 28 70 61 72 74 | 6e 65 72 29 3b 0d 09 09 |dow(part|ner);...|
|00001090| 09 45 4c 53 45 20 48 69 | 64 65 57 69 6e 64 6f 77 |.ELSE Hi|deWindow|
|000010a0| 28 70 61 72 74 6e 65 72 | 29 3b 0d 09 09 09 45 4e |(partner|);....EN|
|000010b0| 44 3b 0d 09 09 7c 0d 09 | 09 63 68 65 63 6b 32 3a |D;...|..|.check2:|
|000010c0| 0d 09 09 09 76 61 6c 75 | 65 20 3a 3d 20 4e 4f 54 |....valu|e := NOT|
|000010d0| 20 47 65 74 44 43 74 6c | 28 61 63 74 6f 72 2c 20 | GetDCtl|(actor, |
|000010e0| 69 74 65 6d 29 3b 0d 09 | 09 09 53 65 74 44 43 74 |item);..|..SetDCt|
|000010f0| 6c 28 61 63 74 6f 72 2c | 20 69 74 65 6d 2c 20 76 |l(actor,| item, v|
|00001100| 61 6c 75 65 29 3b 0d 09 | 09 09 70 65 65 6b 20 3a |alue);..|..peek :|
|00001110| 3d 20 56 41 4c 28 57 69 | 6e 64 6f 77 50 65 65 6b |= VAL(Wi|ndowPeek|
|00001120| 2c 20 70 61 72 74 6e 65 | 72 29 3b 0d 09 09 09 70 |, partne|r);....p|
|00001130| 65 65 6b 5e 2e 67 6f 41 | 77 61 79 46 6c 61 67 20 |eek^.goA|wayFlag |
|00001140| 3a 3d 20 76 61 6c 75 65 | 3b 0d 09 09 45 4c 53 45 |:= value|;...ELSE|
|00001150| 20 28 2a 20 49 74 27 73 | 20 69 6e 20 74 68 65 20 | (* It's| in the |
|00001160| 75 73 65 72 69 74 65 6d | 20 2d 20 69 67 6e 6f 72 |useritem| - ignor|
|00001170| 65 20 69 74 20 2a 29 3b | 0d 09 45 4e 44 3b 0d 09 |e it *);|..END;..|
|00001180| 52 45 54 55 52 4e 20 28 | 46 41 4c 53 45 29 3b 0d |RETURN (|FALSE);.|
|00001190| 45 4e 44 20 45 76 65 6e | 74 3b 0d 0d 0d 50 52 4f |END Even|t;...PRO|
|000011a0| 43 45 44 55 52 45 20 43 | 6c 6f 73 65 3b 0d 0d 09 |CEDURE C|lose;...|
|000011b0| 56 41 52 0d 09 09 61 63 | 74 6f 72 2c 0d 09 09 70 |VAR...ac|tor,...p|
|000011c0| 61 72 74 6e 65 72 3a 20 | 44 69 61 6c 6f 67 50 74 |artner: |DialogPt|
|000011d0| 72 3b 0d 0d 42 45 47 49 | 4e 0d 09 47 65 74 50 6f |r;..BEGI|N..GetPo|
|000011e0| 72 74 28 61 63 74 6f 72 | 29 3b 0d 09 70 61 72 74 |rt(actor|);..part|
|000011f0| 6e 65 72 20 3a 3d 20 56 | 41 4c 28 44 69 61 6c 6f |ner := V|AL(Dialo|
|00001200| 67 50 74 72 2c 20 47 65 | 74 57 52 65 66 43 6f 6e |gPtr, Ge|tWRefCon|
|00001210| 28 61 63 74 6f 72 29 29 | 3b 0d 09 48 69 64 65 57 |(actor))|;..HideW|
|00001220| 69 6e 64 6f 77 28 61 63 | 74 6f 72 29 3b 0d 09 53 |indow(ac|tor);..S|
|00001230| 65 74 44 43 74 6c 28 70 | 61 72 74 6e 65 72 2c 20 |etDCtl(p|artner, |
|00001240| 63 68 65 63 6b 31 2c 20 | 46 41 4c 53 45 29 3b 0d |check1, |FALSE);.|
|00001250| 45 4e 44 20 43 6c 6f 73 | 65 3b 0d 0d 0d 50 52 4f |END Clos|e;...PRO|
|00001260| 43 45 44 55 52 45 20 43 | 6c 6f 62 62 65 72 3b 0d |CEDURE C|lobber;.|
|00001270| 0d 09 56 41 52 0d 09 09 | 74 68 65 44 69 61 6c 6f |..VAR...|theDialo|
|00001280| 67 3a 20 44 69 61 6c 6f | 67 50 74 72 3b 0d 0d 42 |g: Dialo|gPtr;..B|
|00001290| 45 47 49 4e 0d 09 47 65 | 74 50 6f 72 74 28 74 68 |EGIN..Ge|tPort(th|
|000012a0| 65 44 69 61 6c 6f 67 29 | 3b 0d 09 44 69 73 70 6f |eDialog)|;..Dispo|
|000012b0| 73 44 69 61 6c 6f 67 28 | 74 68 65 44 69 61 6c 6f |sDialog(|theDialo|
|000012c0| 67 29 3b 0d 45 4e 44 20 | 43 6c 6f 62 62 65 72 3b |g);.END |Clobber;|
|000012d0| 0d 0d 0d 28 2a 0d 09 46 | 69 6c 65 20 6d 65 6e 75 |...(*..F|ile menu|
|000012e0| 20 68 61 6e 64 6c 65 72 | 0d 2a 29 0d 0d 50 52 4f | handler|.*)..PRO|
|000012f0| 43 45 44 55 52 45 20 44 | 6f 46 69 6c 65 4d 65 6e |CEDURE D|oFileMen|
|00001300| 75 28 69 74 65 6d 3a 20 | 49 4e 54 45 47 45 52 29 |u(item: |INTEGER)|
|00001310| 3b 0d 0d 42 45 47 49 4e | 0d 09 43 41 53 45 20 69 |;..BEGIN|..CASE i|
|00001320| 74 65 6d 20 4f 46 0d 09 | 09 73 68 6f 77 44 6c 6f |tem OF..|.showDlo|
|00001330| 67 31 3a 0d 09 09 09 53 | 65 6c 65 63 74 57 69 6e |g1:....S|electWin|
|00001340| 64 6f 77 28 6d 44 6c 6f | 67 31 29 3b 0d 09 09 09 |dow(mDlo|g1);....|
|00001350| 53 68 6f 77 57 69 6e 64 | 6f 77 28 6d 44 6c 6f 67 |ShowWind|ow(mDlog|
|00001360| 31 29 3b 0d 09 09 09 53 | 65 74 44 43 74 6c 28 6d |1);....S|etDCtl(m|
|00001370| 44 6c 6f 67 32 2c 20 63 | 68 65 63 6b 31 2c 20 54 |Dlog2, c|heck1, T|
|00001380| 52 55 45 29 3b 0d 09 09 | 7c 0d 09 09 73 68 6f 77 |RUE);...||...show|
|00001390| 44 6c 6f 67 32 3a 0d 09 | 09 09 53 65 6c 65 63 74 |Dlog2:..|..Select|
|000013a0| 57 69 6e 64 6f 77 28 6d | 44 6c 6f 67 32 29 3b 0d |Window(m|Dlog2);.|
|000013b0| 09 09 09 53 68 6f 77 57 | 69 6e 64 6f 77 28 6d 44 |...ShowW|indow(mD|
|000013c0| 6c 6f 67 32 29 3b 0d 09 | 09 09 53 65 74 44 43 74 |log2);..|..SetDCt|
|000013d0| 6c 28 6d 44 6c 6f 67 31 | 2c 20 63 68 65 63 6b 31 |l(mDlog1|, check1|
|000013e0| 2c 20 54 52 55 45 29 3b | 0d 09 09 7c 0d 09 09 71 |, TRUE);|...|...q|
|000013f0| 75 69 74 3a 20 53 6b 65 | 6c 57 68 6f 61 3b 0d 09 |uit: Ske|lWhoa;..|
|00001400| 45 4e 44 3b 0d 45 4e 44 | 20 44 6f 46 69 6c 65 4d |END;.END| DoFileM|
|00001410| 65 6e 75 3b 0d 0d 0d 28 | 2a 0d 09 48 61 6e 64 6c |enu;...(|*..Handl|
|00001420| 65 20 45 64 69 74 20 6d | 65 6e 75 20 69 74 65 6d |e Edit m|enu item|
|00001430| 73 20 66 6f 72 20 74 65 | 78 74 20 77 69 6e 64 6f |s for te|xt windo|
|00001440| 77 0d 2a 29 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |w.*)..PR|OCEDURE |
|00001450| 44 6f 45 64 69 74 4d 65 | 6e 75 28 69 74 65 6d 3a |DoEditMe|nu(item:|
|00001460| 20 49 4e 54 45 47 45 52 | 29 3b 0d 0d 09 56 41 52 | INTEGER|);...VAR|
|00001470| 0d 09 09 74 68 65 44 69 | 61 6c 6f 67 3a 20 44 69 |...theDi|alog: Di|
|00001480| 61 6c 6f 67 50 74 72 3b | 0d 09 09 61 6e 45 72 72 |alogPtr;|...anErr|
|00001490| 3a 20 4f 53 45 72 72 3b | 0d 09 09 61 4c 6f 6e 67 |: OSErr;|...aLong|
|000014a0| 3a 20 4c 4f 4e 47 49 4e | 54 3b 0d 09 09 70 65 65 |: LONGIN|T;...pee|
|000014b0| 6b 3a 20 57 69 6e 64 6f | 77 50 65 65 6b 3b 0d 0d |k: Windo|wPeek;..|
|000014c0| 42 45 47 49 4e 0d 09 74 | 68 65 44 69 61 6c 6f 67 |BEGIN..t|heDialog|
|000014d0| 20 3a 3d 20 46 72 6f 6e | 74 57 69 6e 64 6f 77 28 | := Fron|tWindow(|
|000014e0| 29 3b 0d 09 70 65 65 6b | 20 3a 3d 20 56 41 4c 28 |);..peek| := VAL(|
|000014f0| 57 69 6e 64 6f 77 50 65 | 65 6b 2c 20 74 68 65 44 |WindowPe|ek, theD|
|00001500| 69 61 6c 6f 67 29 3b 0d | 09 49 46 20 70 65 65 6b |ialog);.|.IF peek|
|00001510| 5e 2e 77 69 6e 64 6f 77 | 4b 69 6e 64 20 3d 20 64 |^.window|Kind = d|
|00001520| 69 61 6c 6f 67 4b 69 6e | 64 20 54 48 45 4e 0d 09 |ialogKin|d THEN..|
|00001530| 09 43 41 53 45 20 69 74 | 65 6d 20 4f 46 0d 09 09 |.CASE it|em OF...|
|00001540| 09 63 75 74 3a 0d 09 09 | 09 09 44 6c 67 43 75 74 |.cut:...|..DlgCut|
|00001550| 28 74 68 65 44 69 61 6c | 6f 67 29 3b 0d 09 09 09 |(theDial|og);....|
|00001560| 09 61 4c 6f 6e 67 20 3a | 3d 20 5a 65 72 6f 53 63 |.aLong :|= ZeroSc|
|00001570| 72 61 70 28 29 3b 0d 09 | 09 09 09 61 6e 45 72 72 |rap();..|...anErr|
|00001580| 20 3a 3d 20 54 45 54 6f | 53 63 72 61 70 28 29 3b | := TETo|Scrap();|
|00001590| 0d 09 09 09 7c 0d 09 09 | 09 63 6f 70 79 3a 0d 09 |....|...|.copy:..|
|000015a0| 09 09 09 44 6c 67 43 6f | 70 79 28 74 68 65 44 69 |...DlgCo|py(theDi|
|000015b0| 61 6c 6f 67 29 3b 0d 09 | 09 09 09 61 4c 6f 6e 67 |alog);..|...aLong|
|000015c0| 20 3a 3d 20 5a 65 72 6f | 53 63 72 61 70 28 29 3b | := Zero|Scrap();|
|000015d0| 0d 09 09 09 09 61 6e 45 | 72 72 20 3a 3d 20 54 45 |.....anE|rr := TE|
|000015e0| 54 6f 53 63 72 61 70 28 | 29 3b 0d 09 09 09 7c 0d |ToScrap(|);....|.|
|000015f0| 09 09 09 70 61 73 74 65 | 3a 0d 09 09 09 09 61 6e |...paste|:.....an|
|00001600| 45 72 72 20 3a 3d 20 54 | 45 46 72 6f 6d 53 63 72 |Err := T|EFromScr|
|00001610| 61 70 28 29 3b 0d 09 09 | 09 09 44 6c 67 50 61 73 |ap();...|..DlgPas|
|00001620| 74 65 28 74 68 65 44 69 | 61 6c 6f 67 29 3b 0d 09 |te(theDi|alog);..|
|00001630| 09 09 7c 0d 09 09 09 63 | 6c 65 61 72 3a 20 44 6c |..|....c|lear: Dl|
|00001640| 67 44 65 6c 65 74 65 28 | 74 68 65 44 69 61 6c 6f |gDelete(|theDialo|
|00001650| 67 29 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 3b |g);...EN|D;..END;|
|00001660| 0d 45 4e 44 20 44 6f 45 | 64 69 74 4d 65 6e 75 3b |.END DoE|ditMenu;|
|00001670| 0d 0d 0d 28 2a 0d 09 48 | 61 6e 64 6c 65 20 73 65 |...(*..H|andle se|
|00001680| 6c 65 63 74 69 6f 6e 20 | 6f 66 20 41 62 6f 75 74 |lection |of About|
|00001690| c9 20 69 74 65 6d 20 66 | 72 6f 6d 20 41 70 70 6c |. item f|rom Appl|
|000016a0| 65 20 6d 65 6e 75 2e 0d | 2a 29 0d 0d 50 52 4f 43 |e menu..|*)..PROC|
|000016b0| 45 44 55 52 45 20 44 6f | 41 62 6f 75 74 3b 0d 0d |EDURE Do|About;..|
|000016c0| 09 56 41 52 0d 09 09 61 | 6e 45 72 72 3a 20 4f 53 |.VAR...a|nErr: OS|
|000016d0| 45 72 72 3b 0d 0d 42 45 | 47 49 4e 0d 09 61 6e 45 |Err;..BE|GIN..anE|
|000016e0| 72 72 20 3a 3d 20 41 6c | 65 72 74 28 61 62 6f 75 |rr := Al|ert(abou|
|000016f0| 74 41 6c 72 74 52 65 73 | 2c 20 56 41 4c 28 41 44 |tAlrtRes|, VAL(AD|
|00001700| 44 52 45 53 53 2c 20 4e | 49 4c 29 29 3b 0d 45 4e |DRESS, N|IL));.EN|
|00001710| 44 20 44 6f 41 62 6f 75 | 74 3b 0d 0d 0d 50 52 4f |D DoAbou|t;...PRO|
|00001720| 43 45 44 55 52 45 20 44 | 65 6d 6f 44 69 61 6c 6f |CEDURE D|emoDialo|
|00001730| 67 28 74 69 74 6c 65 3a | 20 41 52 52 41 59 20 4f |g(title:| ARRAY O|
|00001740| 46 20 43 48 41 52 3b 20 | 78 2c 20 79 3a 20 49 4e |F CHAR; |x, y: IN|
|00001750| 54 45 47 45 52 29 3a 20 | 44 69 61 6c 6f 67 50 74 |TEGER): |DialogPt|
|00001760| 72 3b 0d 0d 09 56 41 52 | 0d 09 09 74 68 65 44 69 |r;...VAR|...theDi|
|00001770| 61 6c 6f 67 3a 20 44 69 | 61 6c 6f 67 50 74 72 3b |alog: Di|alogPtr;|
|00001780| 0d 0d 42 45 47 49 4e 0d | 09 74 68 65 44 69 61 6c |..BEGIN.|.theDial|
|00001790| 6f 67 20 3a 3d 20 47 65 | 74 4e 65 77 44 69 61 6c |og := Ge|tNewDial|
|000017a0| 6f 67 28 6d 44 6c 6f 67 | 52 65 73 2c 20 4e 49 4c |og(mDlog|Res, NIL|
|000017b0| 2c 20 56 41 4c 28 57 69 | 6e 64 6f 77 50 74 72 2c |, VAL(Wi|ndowPtr,|
|000017c0| 20 2d 31 44 29 29 3b 0d | 09 4d 6f 76 65 57 69 6e | -1D));.|.MoveWin|
|000017d0| 64 6f 77 28 74 68 65 44 | 69 61 6c 6f 67 2c 20 78 |dow(theD|ialog, x|
|000017e0| 2c 20 79 2c 20 46 41 4c | 53 45 29 3b 0d 09 53 65 |, y, FAL|SE);..Se|
|000017f0| 74 57 54 69 74 6c 65 28 | 74 68 65 44 69 61 6c 6f |tWTitle(|theDialo|
|00001800| 67 2c 20 74 69 74 6c 65 | 29 3b 0d 09 53 6b 65 6c |g, title|);..Skel|
|00001810| 44 69 61 6c 6f 67 28 74 | 68 65 44 69 61 6c 6f 67 |Dialog(t|heDialog|
|00001820| 2c 20 45 76 65 6e 74 2c | 20 43 6c 6f 73 65 2c 20 |, Event,| Close, |
|00001830| 43 6c 6f 62 62 65 72 29 | 3b 0d 09 52 45 54 55 52 |Clobber)|;..RETUR|
|00001840| 4e 20 28 74 68 65 44 69 | 61 6c 6f 67 29 3b 0d 45 |N (theDi|alog);.E|
|00001850| 4e 44 20 44 65 6d 6f 44 | 69 61 6c 6f 67 3b 0d 0d |ND DemoD|ialog;..|
|00001860| 0d 56 41 52 0d 09 6d 3a | 20 4d 65 6e 75 48 61 6e |.VAR..m:| MenuHan|
|00001870| 64 6c 65 3b 0d 09 69 74 | 65 6d 48 61 6e 64 6c 65 |dle;..it|emHandle|
|00001880| 3a 20 41 44 44 52 45 53 | 53 3b 0d 09 69 74 65 6d |: ADDRES|S;..item|
|00001890| 54 79 70 65 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |Type: IN|TEGER;..|
|000018a0| 69 74 65 6d 52 65 63 74 | 3a 20 52 65 63 74 3b 0d |itemRect|: Rect;.|
|000018b0| 0d 42 45 47 49 4e 0d 09 | 69 63 6f 6e 4e 75 6d 31 |.BEGIN..|iconNum1|
|000018c0| 20 3a 3d 20 30 3b 0d 09 | 69 63 6f 6e 4e 75 6d 32 | := 0;..|iconNum2|
|000018d0| 20 3a 3d 20 30 3b 0d 09 | 53 6b 65 6c 49 6e 69 74 | := 0;..|SkelInit|
|000018e0| 3b 0d 09 53 6b 65 6c 41 | 70 70 6c 65 28 22 41 62 |;..SkelA|pple("Ab|
|000018f0| 6f 75 74 20 44 69 61 6c | 6f 67 53 6b 65 6c c9 22 |out Dial|ogSkel."|
|00001900| 2c 20 44 6f 41 62 6f 75 | 74 29 3b 0d 09 0d 09 6d |, DoAbou|t);....m|
|00001910| 20 3a 3d 20 4e 65 77 4d | 65 6e 75 28 31 30 30 30 | := NewM|enu(1000|
|00001920| 2c 20 22 46 69 6c 65 22 | 29 3b 0d 09 41 70 70 65 |, "File"|);..Appe|
|00001930| 6e 64 4d 65 6e 75 28 6d | 2c 20 22 53 68 6f 77 20 |ndMenu(m|, "Show |
|00001940| 44 69 61 6c 6f 67 20 31 | 3b 53 68 6f 77 20 44 69 |Dialog 1|;Show Di|
|00001950| 61 6c 6f 67 20 32 3b 28 | 2d 22 29 3b 0d 09 41 70 |alog 2;(|-");..Ap|
|00001960| 70 65 6e 64 4d 65 6e 75 | 28 6d 2c 20 22 51 75 69 |pendMenu|(m, "Qui|
|00001970| 74 2f 51 22 29 3b 0d 09 | 53 6b 65 6c 4d 65 6e 75 |t/Q");..|SkelMenu|
|00001980| 28 6d 2c 20 44 6f 46 69 | 6c 65 4d 65 6e 75 2c 20 |(m, DoFi|leMenu, |
|00001990| 56 41 4c 28 4d 43 6c 6f | 62 62 65 72 50 72 6f 63 |VAL(MClo|bberProc|
|000019a0| 2c 20 4e 49 4c 29 29 3b | 0d 09 0d 09 6d 20 3a 3d |, NIL));|....m :=|
|000019b0| 20 4e 65 77 4d 65 6e 75 | 28 31 30 30 31 2c 20 22 | NewMenu|(1001, "|
|000019c0| 45 64 69 74 22 29 3b 0d | 09 41 70 70 65 6e 64 4d |Edit");.|.AppendM|
|000019d0| 65 6e 75 28 6d 2c 20 22 | 28 55 6e 64 6f 2f 5a 3b |enu(m, "|(Undo/Z;|
|000019e0| 28 2d 3b 43 75 74 2f 58 | 3b 43 6f 70 79 2f 43 3b |(-;Cut/X|;Copy/C;|
|000019f0| 50 61 73 74 65 2f 56 3b | 43 6c 65 61 72 22 29 3b |Paste/V;|Clear");|
|00001a00| 0d 09 53 6b 65 6c 4d 65 | 6e 75 28 6d 2c 20 44 6f |..SkelMe|nu(m, Do|
|00001a10| 45 64 69 74 4d 65 6e 75 | 2c 20 56 41 4c 28 4d 43 |EditMenu|, VAL(MC|
|00001a20| 6c 6f 62 62 65 72 50 72 | 6f 63 2c 20 4e 49 4c 29 |lobberPr|oc, NIL)|
|00001a30| 29 3b 0d 09 0d 09 6d 44 | 6c 6f 67 31 20 3a 3d 20 |);....mD|log1 := |
|00001a40| 44 65 6d 6f 44 69 61 6c | 6f 67 28 22 4d 6f 64 65 |DemoDial|og("Mode|
|00001a50| 6c 65 73 73 20 44 69 61 | 6c 6f 67 20 31 22 2c 20 |less Dia|log 1", |
|00001a60| 35 30 2c 20 35 30 29 3b | 0d 09 6d 44 6c 6f 67 32 |50, 50);|..mDlog2|
|00001a70| 20 3a 3d 20 44 65 6d 6f | 44 69 61 6c 6f 67 28 22 | := Demo|Dialog("|
|00001a80| 4d 6f 64 65 6c 65 73 73 | 20 44 69 61 6c 6f 67 20 |Modeless| Dialog |
|00001a90| 32 22 2c 20 31 35 30 2c | 20 32 30 30 29 3b 0d 09 |2", 150,| 200);..|
|00001aa0| 53 65 74 57 52 65 66 43 | 6f 6e 28 6d 44 6c 6f 67 |SetWRefC|on(mDlog|
|00001ab0| 31 2c 20 56 41 4c 28 4c | 4f 4e 47 49 4e 54 2c 20 |1, VAL(L|ONGINT, |
|00001ac0| 6d 44 6c 6f 67 32 29 29 | 3b 0d 09 53 65 74 57 52 |mDlog2))|;..SetWR|
|00001ad0| 65 66 43 6f 6e 28 6d 44 | 6c 6f 67 32 2c 20 56 41 |efCon(mD|log2, VA|
|00001ae0| 4c 28 4c 4f 4e 47 49 4e | 54 2c 20 6d 44 6c 6f 67 |L(LONGIN|T, mDlog|
|00001af0| 31 29 29 3b 0d 09 53 65 | 74 44 54 65 78 74 28 6d |1));..Se|tDText(m|
|00001b00| 44 6c 6f 67 31 2c 20 65 | 64 69 74 31 2c 20 22 4d |Dlog1, e|dit1, "M|
|00001b10| 6f 64 65 6c 65 73 73 20 | 44 69 61 6c 6f 67 20 32 |odeless |Dialog 2|
|00001b20| 22 29 3b 0d 09 53 65 74 | 44 54 65 78 74 28 6d 44 |");..Set|DText(mD|
|00001b30| 6c 6f 67 32 2c 20 65 64 | 69 74 31 2c 20 22 4d 6f |log2, ed|it1, "Mo|
|00001b40| 64 65 6c 65 73 73 20 44 | 69 61 6c 6f 67 20 31 22 |deless D|ialog 1"|
|00001b50| 29 3b 0d 09 47 65 74 44 | 49 74 65 6d 28 6d 44 6c |);..GetD|Item(mDl|
|00001b60| 6f 67 31 2c 20 75 73 65 | 72 31 2c 20 69 74 65 6d |og1, use|r1, item|
|00001b70| 54 79 70 65 2c 20 69 74 | 65 6d 48 61 6e 64 6c 65 |Type, it|emHandle|
|00001b80| 2c 20 69 74 65 6d 52 65 | 63 74 29 3b 0d 09 53 65 |, itemRe|ct);..Se|
|00001b90| 74 44 49 74 65 6d 28 6d | 44 6c 6f 67 31 2c 20 75 |tDItem(m|Dlog1, u|
|00001ba0| 73 65 72 31 2c 20 69 74 | 65 6d 54 79 70 65 2c 20 |ser1, it|emType, |
|00001bb0| 41 44 52 28 44 72 61 77 | 49 63 6f 6e 29 2c 20 69 |ADR(Draw|Icon), i|
|00001bc0| 74 65 6d 52 65 63 74 29 | 3b 0d 09 47 65 74 44 49 |temRect)|;..GetDI|
|00001bd0| 74 65 6d 28 6d 44 6c 6f | 67 32 2c 20 75 73 65 72 |tem(mDlo|g2, user|
|00001be0| 31 2c 20 69 74 65 6d 54 | 79 70 65 2c 20 69 74 65 |1, itemT|ype, ite|
|00001bf0| 6d 48 61 6e 64 6c 65 2c | 20 69 74 65 6d 52 65 63 |mHandle,| itemRec|
|00001c00| 74 29 3b 0d 09 53 65 74 | 44 49 74 65 6d 28 6d 44 |t);..Set|DItem(mD|
|00001c10| 6c 6f 67 32 2c 20 75 73 | 65 72 31 2c 20 69 74 65 |log2, us|er1, ite|
|00001c20| 6d 54 79 70 65 2c 20 41 | 44 52 28 44 72 61 77 49 |mType, A|DR(DrawI|
|00001c30| 63 6f 6e 29 2c 20 69 74 | 65 6d 52 65 63 74 29 3b |con), it|emRect);|
|00001c40| 0d 09 53 65 74 44 43 74 | 6c 28 6d 44 6c 6f 67 31 |..SetDCt|l(mDlog1|
|00001c50| 2c 20 72 61 64 69 6f 31 | 2c 20 54 52 55 45 29 3b |, radio1|, TRUE);|
|00001c60| 0d 09 53 65 74 44 43 74 | 6c 28 6d 44 6c 6f 67 32 |..SetDCt|l(mDlog2|
|00001c70| 2c 20 72 61 64 69 6f 31 | 2c 20 54 52 55 45 29 3b |, radio1|, TRUE);|
|00001c80| 0d 09 53 65 74 44 43 74 | 6c 28 6d 44 6c 6f 67 31 |..SetDCt|l(mDlog1|
|00001c90| 2c 20 63 68 65 63 6b 31 | 2c 20 54 52 55 45 29 3b |, check1|, TRUE);|
|00001ca0| 0d 09 53 65 74 44 43 74 | 6c 28 6d 44 6c 6f 67 32 |..SetDCt|l(mDlog2|
|00001cb0| 2c 20 63 68 65 63 6b 31 | 2c 20 54 52 55 45 29 3b |, check1|, TRUE);|
|00001cc0| 0d 09 53 65 74 44 43 74 | 6c 28 6d 44 6c 6f 67 31 |..SetDCt|l(mDlog1|
|00001cd0| 2c 20 63 68 65 63 6b 32 | 2c 20 54 52 55 45 29 3b |, check2|, TRUE);|
|00001ce0| 0d 09 53 65 74 44 43 74 | 6c 28 6d 44 6c 6f 67 32 |..SetDCt|l(mDlog2|
|00001cf0| 2c 20 63 68 65 63 6b 32 | 2c 20 54 52 55 45 29 3b |, check2|, TRUE);|
|00001d00| 0d 09 53 68 6f 77 57 69 | 6e 64 6f 77 28 6d 44 6c |..ShowWi|ndow(mDl|
|00001d10| 6f 67 31 29 3b 0d 09 53 | 68 6f 77 57 69 6e 64 6f |og1);..S|howWindo|
|00001d20| 77 28 6d 44 6c 6f 67 32 | 29 3b 0d 09 0d 09 53 6b |w(mDlog2|);....Sk|
|00001d30| 65 6c 4d 61 69 6e 3b 0d | 09 53 6b 65 6c 43 6c 6f |elMain;.|.SkelClo|
|00001d40| 62 62 65 72 3b 0d 45 4e | 44 20 44 69 61 6c 6f 67 |bber;.EN|D Dialog|
|00001d50| 53 6b 65 6c 2e 0d 00 00 | 00 00 00 00 00 00 00 00 |Skel....|........|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001d90| 04 88 06 3a 00 00 02 00 | 00 00 08 00 00 04 00 00 |...:....|........|
|00001da0| 00 6f 01 ac 0f 54 72 61 | 6e 73 c5 d1 4d 6f 64 75 |.o...Tra|ns..Modu|
|00001db0| 1a 31 2e 20 44 44 45 78 | 70 61 6e 64 45 78 70 61 |.1. DDEx|pandExpa|
|00001dc0| 6e 64 54 65 6d 70 46 69 | 6c 65 20 78 02 00 00 00 |ndTempFi|le x....|
|00001dd0| 00 00 44 44 54 4d 44 44 | 41 50 01 00 00 00 00 00 |..DDTMDD|AP......|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 a5 f4 97 71 00 00 | 1c d6 00 00 01 7e 00 00 |.....q..|.....~..|
|00001e00| 00 00 00 00 18 00 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|00001e10| 00 00 00 00 60 00 00 0c | 00 0c 01 70 00 0c 01 fd |....`...|...p....|
|00001e20| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e80| 00 00 00 48 00 0a 43 6f | 75 72 69 65 72 00 52 4f |...H..Co|urier.RO|
|00001e90| 4d 20 4d 61 63 54 79 70 | 65 73 20 49 4d 50 4f 52 |M MacTyp|es IMPOR|
|00001ea0| 54 20 4f 53 45 72 00 06 | 00 02 00 29 00 03 01 53 |T OSEr..|...)...S|
|00001eb0| 01 fd 00 3c 00 24 01 53 | 01 fd 9c d1 e4 a8 00 00 |...<.$.S|........|
|00001ec0| 1b 94 00 00 1b 94 00 00 | 19 e9 01 00 00 00 01 00 |........|........|
|00001ed0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 01 6c 70 |...L...L|...2..lp|
|00001ee0| 02 f2 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001ef0| 00 0a 03 ed ff ff 00 00 | 00 00 00 02 4a dc 00 00 |........|....J...|
+--------+-------------------------+-------------------------+--------+--------+